home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Developer Helper 1: Phil & Dave's Excellent CD
/
Excellent CD HFS.raw
/
Moof
/
Goodies
/
MPW Goodies
/
MPW Goodies⁄DTS
/
KeyMenu
< prev
next >
Wrap
Text File
|
2022-08-05
|
2KB
|
53 lines
# Key menu
Set Key # cloverleaf
Set OldExit {Exit}
Set Exit 0
DeleteMenu {Key} ≥ Dev:Null
Set Exit {OldExit}
Alias OldMPW "∂
AddMenu {Key} 'Old MPW Mode/3!' CurMPW ;∂
Set Commands '{OldCommands}' ;∂
Set AIncludes '{OldMPWPath}AIncludes:' ;∂
Set Libraries '{OldMPWPath}Libraries:' ;∂
Set CIncludes '{OldMPWPath}CIncludes:' ;∂
Set CLibraries '{OldMPWPath}CLibraries:' ;∂
Set PInterfaces '{OldMPWPath}PInterfaces:' ;∂
Set PLibraries '{OldMPWPath}PLibraries:' ;∂
Set RIncludes '{OldMPWPath}RIncludes:'" ;∂
Flush
Alias CurMPW "∂
AddMenu {Key} 'Old MPW Mode/3' OldMPW ;∂
Set Commands '{Commands}' ;∂
Set AIncludes '{AIncludes}' ;∂
Set Libraries '{Libraries}' ;∂
Set CIncludes '{CIncludes}' ;∂
Set CLibraries '{CLibraries}' ;∂
Set PInterfaces '{PInterfaces}' ;∂
Set PLibraries '{PLibraries}' ;∂
Set RIncludes '{RIncludes}'" ;∂
Flush
AddMenu {Key} 'Old MPW Mode/3' OldMPW
AddMenu {Key} 'Set Dir to Folder' 'DirActive'
AddMenu {Key} '(-' ''
AddMenu {Key} 'Source Menu' 'DeleteMenu Source; SourceMenu'
AddMenu {Key} 'Mark C Routines' 'MarkC "{Active}"'
AddMenu {Key} 'Mark Pascal' 'MarkPascal "{Active}"'
AddMenu {Key} 'Pasmat §' 'PasMatIt'
AddMenu {Key} (- ''
AddMenu {Key} 'Open UserStartup/U' 'Open "{WorkFolder}UserStartup" ≥Dev:Null || Beep'
AddMenu {Key} 'Close All/∑' 'Close -a -c'
AddMenu {Key} 'Save All/ß' 'Save -a'
AddMenu {Key} 'Trim {Active}/†' '∂
Mark -y § mark "{Active}" ;∂
Trim "{Active}" ;∂
Find mark "{Active}" ;∂
Unmark mark "{Active}"'
AddMenu {Key} 'Zoom {Active}/ ' 'ZoomWindow "{Active}"'
AddMenu {Key} 'Type Date/∂' 'Echo -n `Date -d -s` >"{Active}.§" && Find §Δ "{Active}"'
AddMenu {Key} 'Eject/E' 'Eject 1 2 ≥Dev:Null'
AddMenu {Key} 'RotateWindows/`' 'RotateWindows'